(define l '(1 2 3 4 5 6))
(for-each print (reverse l))
